home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / sprprcdr.lha / ScreenWipes.AMOS / ScreenWipes.amosSourceCode
AMOS Source Code  |  1996-01-26  |  2KB  |  67 lines
  1. '   ******************************************************** 
  2. '   ***                                                  *** 
  3. '   ***               Screen Wipe Procedures             *** 
  4. '   ***                                                  *** 
  5. '   ***                        by                        *** 
  6. '   ***                                                  *** 
  7. '   ***                   Joseph Bolin                   *** 
  8. '   ***                                                  *** 
  9. '   ******************************************************** 
  10.  
  11. Screen Open 1,320,200,16,Lowres
  12. Curs Off : Flash Off 
  13. Cls 0
  14. For T=1 To 100
  15.    X=Rnd(300) : Y=Rnd(180)
  16.    Ink Rnd(15) : Bar X,Y To X+39,Y+39
  17. Next 
  18. Screen Open 0,320,200,16,Lowres
  19. Curs Off : Flash Off 
  20. Screen Copy 1 To 0
  21. _WIPE2[11]
  22. _WIPE3[9]
  23. _WIPE1[1,0]
  24.  
  25. Procedure _WIPE1[_SOURCE,_DEST]
  26.  
  27.    ' Input:  _SOURCE  Source screen   
  28.    '         _DEST    Destination screen  
  29.    '
  30.    ' Output: Wipes source screen into destination 
  31.  
  32.    Screen _SOURCE : SW=Screen Width : SH=Screen Height
  33.    Screen _DEST : SW=Min(SW,Screen Width) : SH=Min(SH,Screen Height)
  34.    MD=SH/2
  35.    For D=MD-1 To 0 Step -1
  36.       Screen Copy _SOURCE,D,D,SW-D,SH-D To _DEST,D,D : Wait Vbl 
  37.    Next 
  38. End Proc
  39. Procedure _WIPE2[_COLOR]
  40.  
  41.    ' Input:  _COLOR  Color to clear screen to 
  42.    '
  43.    ' Output: Clears current screen to _COLOR
  44.  
  45.    Ink _COLOR
  46.    SW=Screen Width : SH=Screen Height : MD=Max(SW,SH)/2
  47.    For D=0 To MD
  48.       Box D,D To SW-D,SH-D : Wait Vbl 
  49.    Next 
  50. End Proc
  51. Procedure _WIPE3[_COLOR]
  52.  
  53.    ' Input:  _COLOR  Color to clear screen to 
  54.    '
  55.    ' Output: Clears current screen to _COLOR
  56.  
  57.    SW=Screen Width : SH=Screen Height : MW=SW/2 : MH=SH/2
  58.    Ink _COLOR
  59.    For X=0 To SW
  60.       Draw X,0 To MW,MH
  61.       Draw SW-X,SH To MW,MH
  62.    Next 
  63.    For Y=SH To 0 Step -1
  64.       Draw 0,Y To MW,MH
  65.       Draw SW,SH-Y To MW,MH
  66.    Next 
  67. End Proc